Remove unnecessary trailing space

main/Repl.hs

@@ -225,6 +225,3 @@ completer
   :: (MonadNix e t f m, MonadIO m)
   => CompleterStyle (StateT (IState t f m) m)
 completer = Prefix (wordCompleter comp) defaultMatcher
-
-
-

src/Nix/Atoms.hs

@@ -43,11 +43,3 @@ atomText (NInt   i) = pack (show i)
 atomText (NFloat f) = pack (show f)
 atomText (NBool  b) = if b then "true" else "false"
 atomText NNull      = "null"
-
-
-
-
-
-
-
-

src/Nix/Effects.hs

@@ -249,10 +249,3 @@ addPath p = either throwError return =<< addPath' p
 
 toFile_ :: (Framed e m, MonadStore m) => FilePath -> String -> m StorePath
 toFile_ p contents = either throwError return =<< toFile_' p contents
-
-
-
-
-
-
-

src/Nix/Expr/Types.hs

@@ -573,6 +573,3 @@ stripPositionInfo = transport phi
 
 nullPos :: SourcePos
 nullPos = SourcePos "<string>" (mkPos 1) (mkPos 1)
-
-
-

src/Nix/Fresh.hs

@@ -104,10 +104,3 @@ instance MonadAtomicRef (ST s) where
     let (a, b) = f v
     writeRef r $! a
     return b
-
-
-
-
-
-
-

src/Nix/Fresh/Basic.hs

@@ -45,4 +45,3 @@ instance (MonadEffects t f m, MonadDataContext f m)
     p <- lift $ derivationStrict @t @f @m (unliftNValue (runFreshIdT i) v)
     return $ liftNValue (runFreshIdT i) p
   traceEffect = lift . traceEffect @t @f @m
-

src/Nix/Parser.hs

@@ -664,11 +664,3 @@ getSpecialOperator o         = m Map.! o where
   buildEntry i = concatMap $ \case
     (NSpecialDef name op assoc, _) -> [(op, OperatorInfo i assoc name)]
     _                              -> []
-
-
-
-
-
-
-
-

src/Nix/Render/Frame.hs

@@ -239,11 +239,3 @@ renderNormalLoop level = fmap (: []) . \case
   NormalLoop v -> do
     v' <- renderValue level "" "" v
     pure $ "Infinite recursion during normalization forcing " <> v'
-
-
-
-
-
-
-
-

src/Nix/Utils.hs

@@ -179,11 +179,3 @@ alterF
 alterF f k m = f (M.lookup k m) <&> \case
   Nothing -> M.delete k m
   Just v  -> M.insert k v m
-
-
-
-
-
-
-
-