Skip to content

Commit

Permalink
fix stylish-haskell in newly introduced Windows test-utils
Browse files Browse the repository at this point in the history
  • Loading branch information
KtorZ committed Nov 7, 2019
1 parent ee6ab8d commit c8b1e58
Showing 1 changed file with 12 additions and 5 deletions.
17 changes: 12 additions & 5 deletions lib/test-utils/src/Test/Utils/Windows.hs
Original file line number Diff line number Diff line change
@@ -1,3 +1,5 @@
{-# LANGUAGE FlexibleContexts #-}

-- |
-- Copyright: © 2018-2019 IOHK
-- License: Apache-2.0
Expand All @@ -10,11 +12,16 @@ module Test.Utils.Windows

import Prelude

import Control.Exception (throwIO)
import Test.Hspec.Core.Spec (ResultStatus(..))
import Test.Hspec.Expectations (Expectation, HasCallStack)
import System.Info (os)
import Control.Monad (when)
import Control.Exception
( throwIO )
import Control.Monad
( when )
import System.Info
( os )
import Test.Hspec.Core.Spec
( ResultStatus (..) )
import Test.Hspec.Expectations
( Expectation, HasCallStack )

skipOnWindows :: HasCallStack => String -> Expectation
skipOnWindows _reason = when (os == "mingw32") $ throwIO Success

0 comments on commit c8b1e58

Please sign in to comment.