Elm - Basic Form MouseOver Collision

ElmMouseOver

import Graphics.Collage (..)
import Graphics.Element (..)
import Color (blue)
import Text (plainText)
import Window
import Signal
import Mouse

main : Signal Element
main = Signal.map3 (\x y m -> let
    mouseCoords = mouseCoordsToFSFormCoords (x,y) m
    pos = (100,150)
    r = 100
    mouseCollision = circleContainsPoint mouseCoords pos r
  in collage x y [ move pos <| group [filled blue <| circle r, (toForm (plainText (toString mouseCollision)))] ]
  ) Window.width Window.height Mouse.position
  
mouseCoordsToFSFormCoords : (Int,Int) -> (Int,Int) -> (Int,Int)
mouseCoordsToFSFormCoords (winWidth, winHeight) (x,y) = (x - winWidth//2, winHeight//2 - y)

circleContainsPoint : (Int,Int) -> (Int,Int) -> Int -> Bool
circleContainsPoint (mX,mY) (cX,cY) radius = sqrt(toFloat <| (mX-cX)^2 + (mY-cY)^2) - (toFloat radius) <= 0