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 :: Maybe Preview -> [String]
|
||||||
printPreview (Just (i, o, (Bb bi), (Bb bo))) = [
|
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))
|
, ("Out: " ++ (intercalate ", " $ (cleanDP o) ++ cbo))
|
||||||
]
|
]
|
||||||
where
|
where
|
||||||
|
Loading…
Reference in New Issue
Block a user