Remove tabs in source (because --pedantic)

src/Paste/Homepage.hs

@@ -36,25 +36,25 @@ homepage url = docTypeHtml $ do
 
              h2 "Details"
              p $ do
-		H.div $ do
+                H.div $ do
                     dt $ code "file"
                     dd $ do "The file that will be uploaded and served."
-		            " This is the only required field."
-		H.div $ do
+                            " This is the only required field."
+                H.div $ do
                     dt $ code "type"
                     dd $ do "Force a different mime-type than the one recognized"
-		            " by your user agent. You " >> em "need" >> " to specify"
-		            " that when piping to curl or you will end up with "
-			    code "application/octet-stream" >> "."
-		H.div $ do
+                            " by your user agent. You " >> em "need" >> " to specify"
+                            " that when piping to curl or you will end up with "
+                            code "application/octet-stream" >> "."
+                H.div $ do
                     dt $ code "expire"
                     dd $ do "The desired expiration date. This field defaults to one year."
-		            " Valid units are "
-		            strong "s" >> "(econds), "
-		            strong "h" >> "(ours), "
-		            strong "d" >> "(ays), "
-		            strong "w" >> "(eeks) and "
-		            strong "m" >> "(onths)."
+                            " Valid units are "
+                            strong "s" >> "(econds), "
+                            strong "h" >> "(ours), "
+                            strong "d" >> "(ays), "
+                            strong "w" >> "(eeks) and "
+                            strong "m" >> "(onths)."
              H.small $ do
                   "This service is provided with no guarantees of any kind. Please note"
                   " that your IP address will be stored for security purposes."

src/Paste/Styles.hs

@@ -13,52 +13,52 @@ stylesheet = render css
 
 css :: Css
 css = do
-	"*" ? do
-		sym margin (px 0)
+        "*" ? do
+                sym margin (px 0)
 
-	html ? do
-		fontFamily ["Europa", "Helvetica"] [sansSerif]
-		textRendering optimizeLegibility
+        html ? do
+                fontFamily ["Europa", "Helvetica"] [sansSerif]
+                textRendering optimizeLegibility
 
         body ? do
-		sym padding (px 5)
+                sym padding (px 5)
                 sym2 margin (px 0) auto
-		maxWidth (em 50)
+                maxWidth (em 50)
 
-	h2 ? do
-		fontSize (em 1.375)
+        h2 ? do
+                fontSize (em 1.375)
 
-	h1 ? do
-		fontSize (em 1.75)
+        h1 ? do
+                fontSize (em 1.75)
 
-	body ? div <? do
-		display flex
-		flexDirection row
+        body ? div <? do
+                display flex
+                flexDirection row
 
-		dt ? do
-			minWidth (em 4)
-			fontWeight bold
-			textAlign end
-			paddingRight (em 1)
+                dt ? do
+                        minWidth (em 4)
+                        fontWeight bold
+                        textAlign end
+                        paddingRight (em 1)
 
-	body ? code <? do
-		display block
-		whiteSpace preWrap
+        body ? code <? do
+                display block
+                whiteSpace preWrap
 
-	body<>footer ? (p<>div<>code<>h1<>h2) <? do
-		marginTop (em 1)
+        body<>footer ? (p<>div<>code<>h1<>h2) <? do
+                marginTop (em 1)
 
-	a ? do
-		color "#ff0000"
+        a ? do
+                color "#ff0000"
 
-	form ? do
-		table ? do
-			"border-spacing" -: ".25em .625em"
-		td ? firstChild & do
-			textAlign end
-			verticalAlign middle
+        form ? do
+                table ? do
+                        "border-spacing" -: ".25em .625em"
+                td ? firstChild & do
+                        textAlign end
+                        verticalAlign middle
 
-	footer ?
-	     do marginTop (em 2.5)
-		fontSize (em (13/16))
-		textAlign center
+        footer ?
+             do marginTop (em 2.5)
+                fontSize (em (13/16))
+                textAlign center