Commit bbd3ac36 authored by Petr Pudlak's avatar Petr Pudlak
Browse files

Fix indentation in appConsApp in Ganeti.THH

Signed-off-by: default avatarPetr Pudlak <>
Reviewed-by: default avatarKlaus Aehlig <>
parent 6ba1bda6
......@@ -402,7 +402,7 @@ appCons cname = foldl AppE (ConE cname)
appConsApp :: Name -> [Exp] -> Exp
appConsApp cname =
foldl (\accu e -> InfixE (Just accu) (VarE '(<*>)) (Just e))
(AppE (VarE 'pure) (ConE cname))
(AppE (VarE 'pure) (ConE cname))
-- | Builds a field for a normal constructor.
buildConsField :: Q Type -> StrictTypeQ
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment