From 94554782894ec6c26da3b46312d5d1d16d596458 Mon Sep 17 00:00:00 2001 From: Joey Hess Date: Thu, 13 Dec 2012 00:24:19 -0400 Subject: finished where indentation changes --- Utility/Network.hs | 5 ++--- 1 file changed, 2 insertions(+), 3 deletions(-) (limited to 'Utility/Network.hs') diff --git a/Utility/Network.hs b/Utility/Network.hs index bedb37dc9..62523c9e9 100644 --- a/Utility/Network.hs +++ b/Utility/Network.hs @@ -17,6 +17,5 @@ import Control.Applicative - use uname -n when available. -} getHostname :: IO (Maybe String) getHostname = catchMaybeIO uname_node - where - uname_node = takeWhile (/= '\n') <$> - readProcess "uname" ["-n"] + where + uname_node = takeWhile (/= '\n') <$> readProcess "uname" ["-n"] -- cgit v1.2.3