cosmetics

Author: Anton-Latukha

src/Nix/Atoms.hs

@@ -45,9 +45,9 @@ atomText :: NAtom -> Text
 atomText (NURI   t) = t
 atomText (NInt   i) = pack (show i)
 atomText (NFloat f) = pack (showNixFloat f)
-  where
-    showNixFloat x
-      | x `mod'` 1 /= 0 = show x
-      | otherwise       = show (truncate x :: Int)
+ where
+  showNixFloat x
+    | x `mod'` 1 /= 0 = show x
+    | otherwise       = show (truncate x :: Int)
 atomText (NBool  b) = if b then "true" else "false"
 atomText NNull      = "null"

src/Nix/Expr/Types.hs

@@ -8,14 +8,14 @@
 {-# LANGUAGE FlexibleContexts #-}
 {-# LANGUAGE FlexibleInstances #-}
 {-# LANGUAGE FunctionalDependencies #-}
-{-# LANGUAGE GADTs #-}
 {-# LANGUAGE LambdaCase #-}
 {-# LANGUAGE OverloadedStrings #-}
 {-# LANGUAGE RankNTypes #-}
 {-# LANGUAGE StandaloneDeriving #-}
 {-# LANGUAGE TemplateHaskell #-}
 {-# LANGUAGE TypeApplications #-}
 {-# LANGUAGE TypeFamilies #-}
+{-# LANGUAGE InstanceSigs #-}
 
 {-# OPTIONS_GHC -Wno-orphans #-}
 {-# OPTIONS_GHC -Wno-missing-signatures #-}
@@ -27,8 +27,8 @@
 module Nix.Expr.Types where
 
 #ifdef MIN_VERSION_serialise
+import qualified Codec.Serialise                ( Serialise(decode, encode) )  -- For instance implementation function disamburgation
 import           Codec.Serialise                ( Serialise )
-import qualified Codec.Serialise               as Ser
 #endif
 import           Control.Applicative
 import           Control.DeepSeq
@@ -348,12 +348,12 @@ data NKeyName r
 instance Serialise r => Serialise (NKeyName r)
 
 instance Serialise Pos where
-  encode x = Ser.encode (unPos x)
-  decode = mkPos <$> Ser.decode
+  encode x = Codec.Serialise.encode (unPos x)
+  decode = mkPos <$> Codec.Serialise.decode
 
 instance Serialise SourcePos where
-  encode (SourcePos f l c) = Ser.encode f <> Ser.encode l <> Ser.encode c
-  decode = SourcePos <$> Ser.decode <*> Ser.decode <*> Ser.decode
+  encode (SourcePos f l c) = Codec.Serialise.encode f <> Codec.Serialise.encode l <> Codec.Serialise.encode c
+  decode = SourcePos <$> Codec.Serialise.decode <*> Codec.Serialise.decode <*> Codec.Serialise.decode
 #endif
 
 instance Hashable Pos where

src/Nix/Standard.hs

@@ -219,7 +219,7 @@ instance (MonadInstantiate r, MonadInstantiate m) => MonadInstantiate (StandardT
 instance (MonadExec r, MonadExec m) => MonadExec (StandardTF r m)
 instance (MonadIntrospect r, MonadIntrospect m) => MonadIntrospect (StandardTF r m)
 
-{------------------------------------------------------------------------}
+---------------------------------------------------------------------------------
 
 type StandardT m = Fix1T StandardTF m