2 files changed, 4 insertions, 4 deletions
diff --git a/Data/GraphQL/AST.hs b/Data/GraphQL/AST.hs
index 4140c9c..1303908 100644
--- a/Data/GraphQL/AST.hs
+++ b/Data/GraphQL/AST.hs
@@ -1,8 +1,8 @@
 module Data.GraphQL.AST where
 
 import Data.Int (Int32)
+import Data.String (IsString(fromString))
 import Data.Text (Text, pack)
-import Data.String
 
 -- * Name
 
@@ -39,9 +39,7 @@ data Selection = SelectionField Field
                | SelectionInlineFragment InlineFragment
                  deriving (Eq,Show)
 
-data Field = Field Alias Name [Argument]
-                              [Directive]
-                              SelectionSet
+data Field = Field Alias Name [Argument] [Directive] SelectionSet
              deriving (Eq,Show)
 
 type Alias = Name
diff --git a/Data/GraphQL/Schema.hs b/Data/GraphQL/Schema.hs
index 08ddaa1..795bb19 100644
--- a/Data/GraphQL/Schema.hs
+++ b/Data/GraphQL/Schema.hs
@@ -6,6 +6,8 @@ import Text.Show.Functions ()
 import Data.Text (Text)
 import Data.Aeson (ToJSON(toJSON))
 
+-- TODO: Support side-effects
+
 data Schema = Schema QueryRoot -- (Maybe  MutationRoot)
 
 type QueryRoot = Resolver