pack: format to 80 cols

kfish · May 5, 2011 · 15d19f3 · 15d19f3
1 parent a1eaeda
commit 15d19f3
Showing 1 changed file with 6 additions and 3 deletions.
diff --git a/Git/Pack.hs b/Git/Pack.hs
@@ -108,9 +108,12 @@ packObjectRead = do
                 then readSize (shft+7) sz
                 else return sz
 
-        readBase :: Maybe PackObjectType -> I.Iteratee ByteString IO (Maybe PackObjectType)
-        readBase (Just (OBJ_OFS_DELTA 0))  = Just . OBJ_OFS_DELTA <$> readOFSBase 0 0
-        readBase (Just (OBJ_REF_DELTA [])) = Just . OBJ_REF_DELTA <$> (sequence $ replicate 20 I.head)
+        readBase :: Maybe PackObjectType
+                 -> I.Iteratee ByteString IO (Maybe PackObjectType)
+        readBase (Just (OBJ_OFS_DELTA 0))  =
+            Just . OBJ_OFS_DELTA <$> readOFSBase 0 0
+        readBase (Just (OBJ_REF_DELTA [])) =
+            Just . OBJ_REF_DELTA <$> (sequence $ replicate 20 I.head)
         readBase (Just t)                  = return (Just t)
         readBase Nothing                   = return Nothing