Formatting
This commit is contained in:
parent
1bf94be1e9
commit
486f986084
BIN
.Main.hs.swp
BIN
.Main.hs.swp
Binary file not shown.
3
Main.hs
3
Main.hs
@ -137,7 +137,8 @@ printLegal (l, p, b, r) = [
|
||||
|
||||
printPreview :: Maybe Preview -> [String]
|
||||
printPreview (Just (i, o, (Bb bi), (Bb bo))) = [
|
||||
("In : " ++ (intercalate ", " $ (cleanDP i) ++ cbi))
|
||||
"Upcoming Changes:"
|
||||
, ("In : " ++ (intercalate ", " $ (cleanDP i) ++ cbi))
|
||||
, ("Out: " ++ (intercalate ", " $ (cleanDP o) ++ cbo))
|
||||
]
|
||||
where
|
||||
|
Loading…
Reference in New Issue
Block a user