Fix missing line break in csv

src/Handler/Container.hs

@@ -48,5 +48,7 @@ getContainersCsvR :: Handler TypedContent
 getContainersCsvR = do
     allocsE <- runDB $ selectList [] []
     let allocs = entityVal <$> (allocsE :: [Entity Allocation])
-    let csv = "Container,Amount,Location\n" <> concatMap (\a -> tshow (allocationContainer a) <> "," <> tshow (allocationAmount a) <> "," <> tshow (allocationLocation a)) allocs
+    let csv = "Container,Amount,Location\n" <> concatMap allocToRow allocs
     return $ TypedContent "text/csv" (toContent csv)
+    where
+        allocToRow a = tshow (allocationContainer a) <> "," <> tshow (allocationAmount a) <> "," <> tshow (allocationLocation a) <> "\n"